home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / cat / grintool.d < prev    next >
Text File  |  1997-10-26  |  2KB  |  53 lines
  1. DEFINITION MODULE grinTools;
  2.  
  3. (*==============================================================*
  4.  * Modul:               Tools zum Anzeigemodul <grin>           *
  5.  * Autor:               Johannes G”ttker-Schnetmann             *
  6.  * erstellt am:         10.04.1992                              *
  7.  * letzte Žnderung am:  10.04.1992                              *
  8.  * Version:             1.0                                     *
  9.  * Interne Version:     V#0001                                  *
  10.  *==============================================================*
  11.  
  12.  Behandelt die Aktionen, die im Anzeigefenster auftreten k”nnen:
  13.  Weitergeben, Kopieren, Kommentieren, Beantworten, Gruppenkommentar
  14.  
  15.  *----------------------------------------------------------------------------
  16.  * Datum    Vers. Autor  Žnderung (Arbeitsbericht)                            
  17.  *----------------------------------------------------------------------------
  18.  * 10.04.92 0001  JGS    Erste Version
  19.  *----------------------------------------------------------------------------
  20.  *)
  21.  
  22. FROM SYSTEM IMPORT ADDRESS;
  23.  
  24. (* Hier sollen demn„chst auch die neuen Nachrichten erstellt werden, damit u.a. *)
  25. (* BetreffHolen aus Cat komplett entfernt werden kann/ jetzt ist BetreffHolen   *)
  26. (* hier original mit reinkopiert *)
  27.  
  28. (* Dann kann HandleComment/CopyResult und BetreffHolen aus Cat raus *)
  29.  
  30. TYPE ActionType = (comment, answer, copy, pass, otherGroup);
  31.  
  32. PROCEDURE LengthOf(VAR str : ARRAY OF CHAR):CARDINAL;
  33. (* Liefert die L„nge eines Strings nach einer Umlautumwandlung *)
  34.  
  35. PROCEDURE CheckBetreff (VAR Betreff: ARRAY OF CHAR): BOOLEAN;
  36. (* Prft nach, ob der Betreff alle gltigen Regeln einh„lt *)
  37.  
  38. PROCEDURE BetreffHolen(grinWdw: INTEGER; VAR Betreff : ARRAY OF CHAR; REF optStr, WGruppe, preStr : ARRAY OF CHAR;
  39.                        askGrin : BOOLEAN):BOOLEAN;
  40. (* Fhrt den Dialog mit der Betreffzeile durch.
  41.  * Fragt ggf. bei grin nach der aktuellen an!
  42.  *)
  43.  
  44. PROCEDURE GetCommentLine(VAR str : ARRAY OF CHAR; copy : BOOLEAN):BOOLEAN;
  45. (* Wird in MsgManager auch gebraucht *)
  46.  
  47. PROCEDURE Handle(grinWdw: INTEGER; what : ActionType);
  48.  
  49. PROCEDURE Init(wegen, system : ADDRESS);
  50. (* Objektbaum der Betreffauswahlbox und Kommentarzeilenbox *)
  51.  
  52. END grinTools.
  53.